home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 27 / Mac Magazin and MacEasy Magazine CD - Issue 27.iso / Grafik & Text / SGMLTool Folder / HTML.MTT < prev    next >
Text File  |  1996-10-21  |  2KB  |  151 lines
  1. !
  2. ! Mapping to plain Text
  3. !
  4. !  Document Type is HTML.DTD
  5. !
  6. ! ver.1.2 (c)1996 KISI
  7. !
  8. ! All sentences will become a plain text.
  9. ! All graphic data will be excepted.
  10. ! 
  11. ! ----- STYLE -----
  12. !
  13. (HTML
  14. ! Edit the following if you want another layout.
  15. ~    $xfig = 'Fig.' ;
  16. ~    $xdtm = '*' ;
  17. ~    $xulm = 'Â' ;
  18. !
  19. ! for Japanese, Replace the following with above script.
  20. !    $xfig = 'ê}' ;
  21. !    $xdtm = 'Åú' ;
  22. !    $xulm = 'Åõ' ;
  23. !
  24. ! for Heading Number Control
  25. ~    $xh = 1 ; # set 1 if Header does not has Number
  26. ~    $xh1num = 0 ;
  27. !
  28. ! for ANCHOR
  29. ~    $xa = 1 ; # set 1 if HREF-attribute display
  30. !
  31. ! for Deletion of Return-code(s) in Contents
  32. ~    &DeleteCr(1) ;
  33. !
  34. )HTML
  35.     \n
  36. !
  37. ! ----- FRONT -----
  38. !
  39. (TITLE
  40.     \n
  41. !
  42. ! ----- IMAGE -----
  43. !
  44. (IMG
  45. ~    $xfigsrc = &Value('SRC') ;
  46. ~    $xfigalt = &Value('ALT') ;
  47. ~    if ($xfigalt ne '') { $xf = ' '.$xfig.' '.$xfigalt.' ' ; } else { $xf = ' '.$xfig.' ('.$xfigsrc.') ' ; }
  48.     ~$xf~
  49. !
  50. ! ----- ANCHOR -----
  51. !
  52. (A
  53. ~    if ($xa) { $xahref = ' ('.&Value('HREF').') ' ; } else { $xahref = '' ; }
  54.      [ 
  55. )A
  56.     ~$xahref~ ] 
  57. !
  58. ! ----- HEADING -----
  59. !
  60. (H1
  61. ~    $xh1num++ ; $xh2num = 0 ;
  62. ~    if ($xh) { $xhnum = $xh1num ; } else { $xhnum = '' ; }
  63.     \n\n~$xhnum~ 
  64. (H2
  65. ~    $xh2num++ ; $xh3num = 0 ;
  66. ~    if ($xh) { $xhnum = $xh1num.'.'.$xh2num ; } else { $xhnum = '' ; }
  67.     \n\n~$xhnum~ 
  68. (H3
  69. ~    $xh3num++ ;
  70. ~    if ($xh) { $xhnum = $xh1num.'.'.$xh2num.'.'.$xh3num ; } else { $xhnum = '' ; }
  71.     \n\n~$xhnum~ 
  72. !
  73. ! ----- PARAGRAPH -----
  74. !
  75. (P
  76.     \n
  77. !
  78. ! ----- PREFORMATTED TEXT -----
  79. !
  80. (PRE
  81. ~    &DeleteCr(0) ;
  82.     \n
  83. )PRE
  84. ~    &DeleteCr(1) ;
  85.     \n
  86. !
  87. ! ----- ORDERED LISTING -----
  88. !
  89. (OL
  90. ~    &Begin('OL') ;
  91. ~    $xlist = 'OL' ;
  92. )OL
  93. ~    &End('OL') ;
  94. ~    $xlleft = ' ' x &Level('OL') ;
  95. !
  96. ! ----- UNORDERED LISTING -----
  97. !
  98. (UL
  99. ~    &Begin('UL') ;
  100. ~    $xlist = 'UL' ;
  101. )UL
  102. ~    &End('UL') ;
  103. ~    $xlleft = ' ' x &Level('UL') ;
  104. !
  105. ! ----- LISTING ITEM -----
  106. !
  107. (LI    $xlist eq 'OL'
  108. ~    &Count('OL') ;
  109. ~    $xlleft = ' ' x &Level('OL') ;
  110. ~    $xlnest = &Nest('OL') ;
  111.     \n~$xlleft~(~$xlnest~) 
  112. (LI    $xlist eq 'UL'
  113. ~    &Count('UL') ;
  114. ~    $xlleft = ' ' x &Level('UL') ;
  115.     \n~$xlleft~~$xulm~ 
  116. !
  117. ! ----- TABLE -----
  118. !
  119. (TABLE
  120.     \n
  121. (TR
  122. ~    $xtr = 1 ;
  123. )TR
  124.     \n 
  125. (TH
  126. ~    if ($xtr) { $xtab = '' ; } else { $xtab = "\t" ; }
  127. ~    $xtr = 0 ;
  128.     ~$xtab~
  129. (TD
  130. ~    if ($xtr) { $xtab = '' ; } else { $xtab = "\t" ; }
  131. ~    $xtr = 0 ;
  132.     ~$xtab~
  133. )TABLE
  134.     \n
  135. !
  136. ! ----- GROSSARY -----
  137. !
  138. (DL
  139. ~    &Begin('DL') ;
  140. (DT
  141. ~    $xdleft = ' ' x &Level('DL') ;
  142.     \n~$xdleft~~$xdtm~ 
  143. (DD
  144. ~    $xdleft = ' ' x (&Level('DL')*4) ;
  145.     \n~$xdleft~
  146. )DL
  147. ~    &End('DL') ;
  148. ~    $xdleft = ' ' x &Level('DL') ;
  149. !
  150. ! That is all.
  151.